home *** CD-ROM | disk | FTP | other *** search
- $INCLUDE "REGNAMES.INC"
- DEF SEG = &HD400
- CLS
- REG %AX,(&H1*256)+26
- CALL INTERRUPT &H0B
- janus=REG(%DI)
- IF janus<>-1 THEN
-
- REG %AX,(&H17*256)+2
- CALL INTERRUPT &H13
-
- spur=0
- seite=0
- POKE janus+0,spur
- POKE janus+1,seite
- POKE janus+2,0
- POKE janus+2,2
- REG %AX,(&H04*256)+1
- REG %DX,(seite*256)+0
- REG %CX,(spur*256)
- REG %ES,&HD400
- REG %BX,janus
- ?"Call"
- CALL INTERRUPT &H13
- ?"Okay"
- ?"AX=";INT(REG(%AX)/256)
-
- ELSE
- ?"JError Int 26"
- END IF
- ?"<< Taste >>"
- END
-
-